Исходный текст

'----------------------------------------------------------
'Массив объектов 
Dim arr(3)
Set arr(1) = ThisApplication.Desktop
Set arr(2) = arr(1).Objects(0)
Set arr(3) = arr(2).Objects(0)

ThisApplication.Shell.SetActiveListItem(arr)

'----------------------------------------------------------
'Коллекция объектов 
Set colPath = ThisApplication.CreateCollection(tdmObjects)
colPath.Add  ThisApplication.Desktop 
colPath.Add  ThisApplication.Desktop.Objects(0)
colPath.Add  ThisApplication.Desktop.Objects(0).Objects(0)

ThisApplication.Shell.SetActiveListItem(colPath)

'----------------------------------------------------------
'Просто объект (без раскрытия пути в дереве)
Set Object = ThisApplication.Desktop.Objects(0)
ThisApplication.Shell.SetActiveListItem(Object)
'----------------------------------------------------------